home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / commoditys / magiccx / rexx / scripts.lha / BASRevision.ced < prev    next >
Text File  |  1994-08-12  |  1KB  |  91 lines
  1. /*
  2.     $VER: BASRevision.ced 1.0 (12.8.94)
  3.  
  4.     Revises an Basic source code
  5.     The default Port of MagicCX is assumed to be MCX.
  6.     This script was written for CygnusED II Pro, but I think it can
  7.     be easily ported to other editors having an ARexx-Port.
  8.  
  9.     Written by :     Kai Iske
  10.              Brucknerstrasse 18
  11.              63452 Hanau
  12.              GERMANY
  13.              Tel.: +49-(0)6181-850181
  14.  
  15.     THIS SCRIPT IS PUBLIC DOMAIN
  16. */
  17.  
  18.  
  19.  
  20. OPTIONS RESULTS
  21. ADDRESS 'rexx_ced'
  22.  
  23.  
  24. /*
  25.    Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
  26.    (Please add complete paths for the files!)
  27. */
  28.  
  29. INITVER        = 1
  30. INITREV        = 0
  31. INSBEFORE    = BASInsertBeforeHeader
  32. INSAFTER    = BASInsertAfterHeader
  33.  
  34.  
  35.  
  36. /*
  37.    Get information about current file
  38. */
  39.  
  40. STATUS 20
  41. Path = RESULT
  42. IF Path ~= '' THEN
  43. DO
  44.     CHANGE CURRENT DIRECTORY Path
  45.     IF (RIGHT(Path, 1) ~= ':') & (RIGHT(Path, 1) ~= '/') THEN
  46.         Path = Path || '/'
  47. END
  48.  
  49.  
  50. /*
  51.    Save file in editor
  52. */
  53.  
  54. SAVE
  55.  
  56.  
  57. /*
  58.    Get FileName of file being edited
  59. */
  60.  
  61. STATUS 21
  62. FileName    = RESULT
  63. RevName        = Path || FileName
  64.  
  65.  
  66. /*
  67.    Start RCS
  68. */
  69.  
  70. QUOTE    = '22'X
  71.  
  72. OPTIONS RESULTS
  73. ADDRESS 'MCX' REVISE 'FILE='QUOTE''RevName''QUOTE 'MODE=BAS' 'PUBSCREEN=CygnusEdScreen1' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  74.  
  75. /*
  76.    Get results
  77. */
  78.  
  79. RevDone = RESULT
  80.  
  81. /*
  82.    No error, reload file
  83. */
  84.  
  85. IF RevDone = 'TRUE' THEN
  86.     open FileName
  87. ELSE
  88.     SAY 'Error occured during revision.'
  89.  
  90. EXIT
  91.